1 ONAGOTO169,170,171,172,76,169,187
2 DIMA%(23):A%(1)=1545:A%(2)=1585:A%(3)=1546:A%(4)=1586:A%(5)=1551:A%(6)=1591
3 A%(7)=1552:A%(8)=1592:A%(9)=1575:A%(10)=1615:A%(11)=1576:A%(12)=1616
4 A%(13)=1581:A%(14)=1621:A%(15)=1582:A%(16)=1622
5 POKE53265,PEEK(53265)AND239
6 POKE53280, 0:POKE53281, 0:PRINT"[147][142]";
7 PRINT"[154]WELCOMETOTHEPROGRAMMINGWORLDOF"
8 PRINT"EASEANDSIMPLICITY"
9 PRINT"[129][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]fffffffffffffffffffffffffffffff";
10 PRINT"fffffffff[150][169][175]   [162] [175]  [162][169][175][146][182] [146][181] [175] [175] "
11 PRINT"[146][183][170][180][180][146][162][169][180][146][185][187][180][146][162][169][180][170] [180] [180][146][185][187]"
12 PRINT"[175][170][180][180][180][146][184][190][180][146][180] [170] [180] [180][146][184][190]"
13 PRINT"[183][146][169] [146][169] [146][180] [183]   [165][167][146][182] [146][181] [183][146][169] [183] "
14 PRINT"[129]dddddddddddddddddddddddddddddddddddddddd[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
15 PRINT"[183][183][183][183][183][183][183][183][183][154]THEULTIMATEPROGRAMMERSUTILITYPACKAGE";
16 PRINT"[156] (C) COPYRIGHT JULY 1986 - VERSION 3.1"
17 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][150][182][158][166][166][155]FREE[158][166][166][150] [146]BYSTEPHENR";
18 PRINT".GAST[150] [146][158][166][166][155]FREE[158][166][166][150][181][182][158][166][166][155]WARE[158][166][166][150] [146]&RICHARDROLLINS[150] [146][158][166][166][155]WAR";
19 PRINT"E[158][166][166][150][181][153][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][165]*[159]ALLDOSWEDGECOMMAND";
20 PRINT"SMADEFRIENDLY![153][170][165]*[159]ALLTINYAIDPLUSCOMMANDSANDMORE![153][170][180]*[159]ALLSUP";
21 PRINT"ERDOSCOMMANDSANDMUCHMORE![153][170][165]-------[155]INADDITIONIFSELECTED------";
22 PRINT"--[153][170][165]*[159]CHOICEOFMLMONITORINTWOLOCATIONS[153][170][165]*[159]ANEASYTOUSELOWRE";
23 PRINT"SSCREENEDITOR[153][170][165]*[159]TOTALLYCOMPATIBLEWITHPALASSEMBLER[153][170][184][184][184][184][184][184][184][184][184][184][184]";
24 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]PRESSANYKEYTOCONTINUE";
25 POKE53265,PEEK(53265)OR16
26 GETW$
27 PO=PEEK(1545):PO=PO+128:IFPO>256THENPO=PO-256
28 FORX=1TO16:POKEA%(X),PO:NEXTX
29 IFW$=""THEN26
30 POKE53265,PEEK(53265)AND239
31 POKE53280, 0:POKE53281, 0:PRINT"[147]";
32 PRINT"[155][176]``````````````````````````````````````[174]}";
33 PRINT"}}[154]***fREEWARE***[155]}}";
34 PRINT"}}[154]-fREEWAREISANATTEMPTTOPROVIDETHE[155]}}[154]HIGHEST";
35 PRINT"QUALITYSOFTWAREATAPRICE[155]}}[154]THATISREASONABLEANDFAIR.pROGRAMS[155]";
36 PRINT"}}[154]MAYBECOPIEDANDDISTRIBUTEDFREELY.[155]}}[154]tHEYMAYNOTBESOLDFOR";
37 PRINT"PROFIT.iF[155]}}[154]YOUFINDTHEPRODUCTUSEFUL,SENDUS[155]}}[154]SOMEMONEY.iF";
38 PRINT"NOT,PASSITALONGTO[155]}}[154]ANOTHERPROGRAMMER.wETHINKTHATTHE[155]}}[154]EV";
39 PRINT"OLVINGPROGRAMKNOWNASsUPERaIDE[155]}}[154]ISTHEFINESTPROGRAMMINGUTILIT";
40 PRINT"YYOU[155][221][221][154]CANGETATANYPRICE.[193]TITSPRESENT[155][221][221][154]POINTOFDEVELOPME";
41 PRINT"NT,FOURANDONE[155]}}[154]HALFYEARSOFEFFORTAREINVOLVED.[155]}}[158]wEWELCO";
42 PRINT"MEYOURCOMMENTS[150](&DONATIONS)[155]}}[154]saseFORUPDATEINFOOR217-352-9681";
43 PRINT"[155]}}[159]-sENDCOMMENTS,saseORDONATIONSTO:[155]}}[159]sTEPHENr.gAST";
44 PRINT"[155]}}[159]1714pARKSIDEtERRACE[155]}}[159]cHAMPAIG";
45 PRINT"N,il61821-5456[155]}[173]``````````````````````````````````````[189]";
46 PRINT"[154][208]RESSANYKEYTOCONTINUE";
47 POKE53265,PEEK(53265)OR16:POKE198,0
48 GETW$:IFW$=""THEN48
49 POKE53265,PEEK(53265)AND239
50 POKE53280, 0:POKE53281, 0:PRINT"[147]";
51 PRINT"[153][176]``````````````````````````````````````[174]}pLEASESELECTTHEOPTIONSYO";
52 PRINT"UWISH:}}[159][176]`[178]```````````````````````````[178]`[174][153]}}[159]}}m.l.mOTITOR";
53 PRINT"AT50135/$C3D7}N}[153]}}[159][171]`{```````````````````````````{`[179][153]}}[159]}}m";
54 PRINT".l.mONITORAT29900/$74CC}N}[153]}}[159][171]`{```````````````````````````{`[179]";
55 PRINT"[153][221][221][159][221][221][211]CREEN[197]DITOR$C000 - $C43E[221]N[221][153][221][221][159][173][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
56 PRINT"````````[177]`[189][153]}}[158]pLEASEMAKEYOURCHOICESNOW[153]}}[150]tOGGLEyOUR";
57 PRINT"pREFERENCEwITHN&Y[153]}}[155]pRESSRETURNTOENTERYOURSELECTION[153]}[173]``";
58 PRINT"````````````````````````````````````[189][176]``````````````````````````````````";
59 PRINT"````[174]}[159][176]`[178]```````````````````````````[178]`[174][156]r[153]}}[159]}}ramhOOKS($0";
60 PRINT"2A7-$02FF)}y}[156]E[153]}}[159][171]`{```````````````````````````{`[179][156]S[153]}}[159]}}uN";
61 PRINT"DERbasic($A000-$BFFF)}y}[156]I[153]}}[159][171]`{```````````````````````````{`[179][156]";
62 PRINT"D[153]}}[159]}}uNDERkernal($E000-$FFFF)}y}[156]E[153]}}[159][173]`[177]`````````````````";
63 PRINT"``````````[177]`[189][156]N[153]}}[156]tHESEAREINITIALLYALWAYSSELECTEDT[153]}[173]```````````";
64 PRINT"```````````````````````````[189]"
65 A$="[205].[204]. [205]ONITOR AT 50135/$C3D7":W2$="N":COLUMN=4:ROW=3
66 GOSUB134
67 IFM=1THENO(1)=1:GOTO150
68 A$="[205].[204]. [205]ONITOR AT 29900/$74CC":W2$="N":COLUMN=4:ROW=5
69 M=0:GOSUB134
70 IFM=1THENO(2)=1:GOSUB158
71 A$="[211]CREEN [197]DITOR $C000 - $C43E":W2$="N":COLUMN=4:ROW=7
72 M=0:GOSUB134
73 IFM=1THENO(3)=1
74 IFO(2)=1THENA=5:A$="[205].[204]. [205]ONITOR AT 29900/$74CC":W2$="_":SG=1
75 IFO(2)=1THENCOLUMN=4:ROW=5:GOSUB146:GOSUB164:LOAD"XMON.74CC-8003",8,1
76 IFO(2)=1THENPOKE51,204:POKE55,204:POKE52,116:POKE56,116:GOSUB148
77 IFO(3)=1THENA=6:A$="[211]CREEN [197]DITOR $C000 - $C43E":W2$="_"
78 IFO(3)=1ANDSG=0THENGOSUB164
79 IFO(3)=1THENCOLUMN=4:ROW=7:GOSUB146:LOAD"EDIT.C000-C43E",8,1
80 IFO(2)=0ANDO(3)=0THENGOSUB164:GOTO173
81 GOTO169
82 IFO(1)=1THENPOKE49101,33:POKE49133,191:POKE48978,215:POKE48979,195
83 IFO(2)=1THENPOKE49101,33:POKE49133,191:POKE48978,204:POKE48979,116
84 IFO(3)=1THENPOKE49089,159:POKE49121,190
85 SYS930:POKE53265,PEEK(53265)AND239:POKE808,225
86 POKE53280, 0:POKE53281, 0:PRINT"[147]";
87 PRINT"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221][158]*********[150][215]EDGE[195]OMMANDS[158]";
88 PRINT"********[153][221][171][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][159]@[153][221][154][196]ISK[211]TATUS";
89 PRINT"[153][221][159]*[195][200][153][221][154]/[212]HIS/TO[212]HAT/[153][221][221][159]@[195][153][221][154][DR]:[206][197][215]=[207][195]OPY[153][221][159]*[193][213][153][221][154]10,10[193]UTO#";
90 PRINT"[153]}}[159]@i[153]}[154][DR]iNITIALIZE[153]}[159]*fi[153]}[154].fINDtHIS.,10-[153]}}[159]@n[153]}[154][DR]:nM,idnE";
91 PRINT"W[153][221][159]*[196][197][153][221][154]-500[196]ELETE[153][221][221][159]@[209][153][221][154][203]ILLTHE[215]EDGE[153][221][159]*[193][208][146][153][221][154][[206][193][205][197]][193]PPEND";
92 PRINT"[153][221][221][159]@[210][153][221][154][DR]:[206]=[207][210]ENAME[153][221][159]*[206][213][153][221][154]10,10[210]ENUMBER[153][221][221][159]@[211][146][153][221][154][DR]:[206]M[211]CRA";
93 PRINT"TCH[153][171]```[177]```````````````[179]}[159]@$[153]}[154][DR]:dIRECTORY[153]}[159]^^^a sPACE must BE [146][153]";
94 PRINT"[221][221][159]@#[153][221][154][DR][195]HANGEDR#[153][221][159]PLACED AFTER THESE [146][153][221][221][159]@[212][146][153][221][154][DR]:[212]RANSFER";
95 PRINT"[153][171]```````````````````[179]}[159]@d[153]}[154][DR]=[DR]bACKUP[153]}[150][182][158][166][166][166][155]sUPERaIDE[158][166][166][166][166][150][181][153]";
96 PRINT"[221][221][159]@[214][153][221][154][DR] [214]ALIDATE  [153][221][129][208]ROGRAMMING[213]TILITY[153][221][221][159]\[146][153][221][154][[206]M][196]ISK[204]ISTER[153][171][192]";
97 PRINT"``````````````````[179]}[159]&[146][153]}[154][nM]lOADaDDR[153]}[159][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][153]}}[159]/";
98 PRINT"[146][153]}[154][nM]basicload[153]}[159]tRUE PARTIAL RENUM-[146][153]}}[159]%[146][153]}[154][nM]mllOAD[153]}";
99 PRINT"[159]BERING IS POSSIBLE![146][153]}}[159]^[146][153]}[154][nM]lOAD&rUN[153]}[159]*NU 100,2,100-200  [146][153]";
100 PRINT"}}[159]_[146][153]}[154][nM]basicsave[153]}[159]oUT OF RANGE CHECK![146][153]}[171]``[177]```````````````[189]";
101 PRINT"[159]```````````````````[146][153]}}[159]hIGHLIGHTED ITEMS CAN BE USED TO THE  [146][153]}}[159]LE";
102 PRINT"FT OF THE BLOCK COUNT ON DIRECTORIES[146][153]}[173]````````````````````````````````";
103 PRINT"[192][192][192][192][192][192]";
104 POKE2023,125:POKE56295,13:POKE53265,PEEK(53265)OR16:SYS849
105 GOSUB127
106 POKE53265,PEEK(53265)AND239
107 POKE53280, 0:POKE53281, 0:PRINT"[147]";
108 PRINT"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221][158]******** [150][210][197][211][212][207][210][197] [203]EY [195]OMMAND";
109 PRINT"S [158]********[153][221][171][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][159][191][195][153][221][154][195]HANGE COLOR";
110 PRINT"S  [153][221][159][191][193] [153][221][154][211]CR.[197]DITOR[OPT][153][221][221][159]  [153][221][154][195]=CHAR  [197]=EDGE [153][221][159][191][204] [153][221][154][196]OUBLE [211]PACE";
111 PRINT"   [153][221][221][159]  [153][221][154][194]=BACKGROUND   [153][221][159][191]\ [153][221][154][214]IEW [210]EL. [198]ILE [153][221][221][159][191][208][153][221][154][208]RINTER [207]N  ";
112 PRINT"   [153][221][159][191]^ [153][221][154][211]CROLLER [212]OGGLE[153][221][221][159][191][207][153][221][154][208]RINTER [207]FF    [153][221][159][191]@ [153][221][154][194][193][211][201][195] [198]REE [210]";
113 PRINT"[193][205] [153][221][221][159][191][206][153][221][154][206]UMBER [195]ONV.   [153][221][159][191]_ [153][221][154][211][207][214] [208]OINTER    [153][221][221][159][191][196][153][221][154][211]CREEN [196]UMP ";
114 PRINT"   [153][171][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][159][191][200][153][221][154][200]ELP [211]CREEN #1 [153][221][159]*****[198]REEWARE******[153][221][221]";
115 PRINT"[159][191][213][153][221][154][200]ELP [211]CREEN #2 [153][221][159]THE LOGICAL CHOICE![153][221][221][159][191][210][153][221][154][210]EPEAT [212]OGGLE  [153][171][192][192][192]";
116 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][159][191][203][153][221][154][211]YSTEM [210]ESET   [153][221][150][182][158][166][166][166][155][211]UPER [193]IDE[158][166][166][166][166][150][181][153][221][221][159][191][211][153]";
117 PRINT"[221][154][211]TART & [197]ND    [153][221][129][211].[199]AST -- [210].[210]OLLINS[153][221][221][159][191][212][153][221][154][212]RACE [207]N       [153][171][192][192][192][192][192][192][192]";
118 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][179][221][159][191][216][153][221][154][212]RACE [207]FF      [153][221][159][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][153][221][221][159][191][214][153][221][154][204]IST [214]";
119 PRINT"ARIABLES [153][221][159] [205]ANY [210][197][211][212][207][210][197] KEY  [146][153][221][221][159][191][201][153][221][154][213]NNEW          [153][221][159] FUNCTIONS ";
120 PRINT"CAN BE  [146][153][221][221][159][191][198][153][221][154][198]UNCTION [203]EYS  [153][221][159] EXITED USING THE  [146][153][221][221][159][191][205][153][221][154][205][204] [205]ON";
121 PRINT"ITOR[OPT][153]}[159] return BUTTON.    [146][153]}[171]``[177]```````````````[189][159]```````````````";
122 PRINT"````[146][153]}}[159]^ a [191] SYMBOL IN THIS COLUMN REPRESENTS[146][153]}}[159]A restore KEY PRES";
123 PRINT"S BEFORE THE LETTER.[146][153][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
124 POKE2023,125:POKE56295,13:POKE53265,PEEK(53265)OR16:SYS857:SYS883:POKE808,237
125 GOSUB127
126 GOTO189
127 POKE198,0
128 GETW$:REM
129 PO=PEEK(1565)+128:IFPO>256THENPO=PO-256
130 FORX=1565TO1567:POKEX,PO:NEXTX
131 FORX=1578TO1581:POKEX,PO:NEXTX
132 IFW$=""THEN128
133 RETURN
134 POKE211,COLUMN:POKE214,ROW:SYS58732:PRINT"[159][221] [221][158]"A$"[159][221][158]"W2$"[159][221][158]":POKE198,0
135 POKE53265,PEEK(53265)OR16
136 POKE211,COLUMN:POKE214,ROW:SYS58732
137 IFC=0THENPRINT""W2$
138 IFC=1THENPRINT""W2$"[146]"
139 C=C+1:IFC=2THENC=0
140 GETW$:IFW$<>"Y"ANDW$<>"N"ANDW$<>CHR$(13)THEN136
141 IFW$="Y"THENW2$=W$:GOTO136
142 IFW$="N"THENW2$=W$:GOTO136
143 POKE211,COLUMN:POKE214,ROW:SYS58732:PRINT"[159][221] [221]"A$"[221]"W2$"[221]"
144 IFW2$="Y"THENM=1
145 RETURN
146 POKE211,COLUMN:POKE214,ROW:SYS58732:PRINT"[159][221] [221][158]"A$"[159][221][158]"W2$"[159][221]"
147 RETURN
148 POKE211,COLUMN:POKE214,ROW:SYS58732:PRINT"[159][221][158][186][159][221][156]"A$"[159][221] [221]"
149 RETURN
150 POKE211,4:POKE214,9:SYS58732
151 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
152 PRINT"   [221][215][193][210][206][201][206][199]! [198]ASTLOADERS MAY CRASH![221]"
153 PRINT"[145]   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  "
154 FORX=1TO2000:NEXT
155 GOSUB164
156 W2$="_":GOSUB146
157 A=1:LOAD"XMON.C3D7-CEFE",8,1
158 POKE211,4:POKE214,9:SYS58732
159 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
160 PRINT"   [221][206]OTE: [201]F USING, LOAD [208][193][204] FIRST![221]"
161 PRINT"[145]   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  "
162 RETURN
163 STOP
164 POKE211,4:POKE214,9:SYS58732
165 PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
166 PRINT"   [221][155]--------[158][204]OADING [205]ODULES[155]--------[152][221]"
167 PRINT"[145]   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  "
168 RETURN
169 GOSUB148:GOTO173
170 GOSUB148:GOTO176
171 GOSUB148:GOTO179
172 GOSUB148:GOTO182
173 A$="[210][193][205] [200]OOKS    ($02A7-$02FF) ":COLUMN=4:ROW=15:W2$="_"
174 GOSUB146
175 A=7:LOAD"1",8,1
176 A$="[213]NDER [194][193][211][201][195]  ($A000-$BFFF) ":COLUMN=4:ROW=17:W2$="_"
177 GOSUB146
178 A=3:LOAD"2",8,1
179 A$="[213]NDER [203][197][210][206][193][204] ($E000-$FFFF) ":COLUMN=4:ROW=19:W2$="_"
180 GOSUB146
181 A=4:LOAD"3",8,1
182 POKE211,4:POKE214,9:SYS58732
183 PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
184 PRINT"   [221][155]-----------[158][195]OMPLETE[155]------------[152][221]"
185 PRINT"[145]   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  "
186 FORX=1TO2000:NEXT:GOTO82
187 A=2:LOAD"SCREEN.MOVE",8,1
188 SYS703
189 POKE53265,PEEK(53265)AND239
190 POKE53280, 0:POKE53281, 0:PRINT"[147]";
191 PRINT"[159][176]``````````````````````````````````````[174]}wHENYOUBACKUPTHISDISK,BE";
192 PRINT"sureTO}}BACKUPbothSIDES!cOMPLETESOURCE}}CODEFILESAREINCLUDE";
193 PRINT"DONTHEREVERSE}}SIDEOFTHISDISK.aLLSOURCECODEIS}}DONEINpalFO";
194 PRINT"RMAT.cOMMENTSAREMADE}}INASMUCHDETAILASSPACEWILLALLOW.}[171]``````";
195 PRINT"````````````````````````````````[179]}[154]cURSOR[159]dOyOUwISHtO:[154]rETUR";
196 PRINT"N[159]}}[154]tOtO[159]}}[154]sELECT[159] eXIT THE p";
197 PRINT"ROGRAM  [146][154]cHOOSE[159]}}}}[158][166][150][161][158]sUPER";
198 PRINT"[159]sEEdOCUMENTATION[158]aIDE[150][180][146][158][166][159]}}[158][166]";
199 PRINT"[166][159]}}[158][166][166][166][166][166][166][166][166][166][166][150][161]hAPPYpROGRAMMING[180][146][158][166][166][166][166][166][166][166][166][166][159]}}";
200 PRINT"}[171]``````````````````````````````````````[179]}iFTHERE";
201 PRINT"ISENOUGHINTEREST,WEWILL}}SUPPLYHARDCOPYDOCUMENTATIONFORTHE}}";
202 PRINT"UTILITYFOR$20.tHISWILLINCLUDENOT}}ONLYDETAILEDDESCRIPTIONSOFCO";
203 PRINT"MMANDS}}BUTALSOTECHNIQUESONHOWTOBESTUSE}}sUPERaIDESABILITIES";
204 PRINT"TOMAKEYOUR}}PROGRAMMINGTASKANEASIERONE......sg}[173]````````````````";
205 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
206 POKE2023,125:POKE56295,3
207 POKE53265,PEEK(53265)OR16
208 A%(1)=1505:A%(2)=1545:A%(3)=1585:A%(4)=1586:A%(5)=1587:A%(6)=1588:A%(7)=1589
209 A%(8)=1590:A%(9)=1591:A%(10)=1592:A%(11)=1593:A%(12)=1594:A%(13)=1614
210 A%(14)=1615:A%(15)=1616:A%(16)=1617:A%(17)=1618:A%(18)=1619:A%(19)=1620
211 A%(20)=1621:A%(21)=1622:A%(22)=1582:A%(23)=1542:CH=1
212 A$=" [197]XIT THE [208]ROGRAM  ":B$=" [211]EE [196]OCUMENTATION "
213 GETW$
214 PO=PEEK(1505):PO=PO+128:IFPO>256THENPO=PO-256
215 FORX=1TO23:POKEA%(X),PO:NEXT
216 IFW$=""ORW$="[157]"ORW$="[145]"ORW$=""THENGOSUB224
217 IFW$<>CHR$(13)THEN213
218 IFCH=0THENGOTO220
219 PRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
220 POKE211,1:POKE214,8:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
221 PRINT"[221][155]----[158][204]OADING [196]OCUMENTATION [196]RIVER[155]----[152][221]";
222 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
223 LOAD"DOC.DRIVER",8
224 IFCH=0THENPOKE211,11:POKE214,10:SYS58732:PRINT""A$
225 IFCH=0THENPOKE211,11:POKE214,12:SYS58732:PRINT"[146]"B$:CH=1:GOTO228
226 IFCH=1THENPOKE211,11:POKE214,12:SYS58732:PRINT""B$
227 IFCH=1THENPOKE211,11:POKE214,10:SYS58732:PRINT"[146]"A$:CH=0
228 RETURN